10 REM COPYRIGHT 1989 COMPUTE! PUBLICATIONS, INC. - ALL RIGHTS RESERVED
20 AD=49152:IFPEEK(AD+5)=94THEN120
30 POKE53280,0:POKE53281,0
40 PRINT"[147]PLEASE WAIT (1 MINUTE)..."
50 FORQ=0TO31:READA:NEXT:FORX=1TO30:READQ$
60 FORT=1TOLEN(Q$)-4STEP2:A$=MID$(Q$,T,1)
70 GOSUB110:W=V*16:A$=MID$(Q$,T+1,1):GOSUB110:W=W+V:POKEAD,W:AD=AD+1:CH=CH+W
80 W=0:NEXT
90 IFCH<>VAL(RIGHT$(Q$,4))THENPRINT"ERROR IN LINE"PEEK(63)+PEEK(64)*256:END
100 CH=0:W=0:NEXTX:GOTO120
110 V=ASC(A$)-48+7*(A$>"9"):RETURN
120 A2=50090:POKE50015,0:GOTO220
130 S=54272:FORX=54272TO54296:POKEX,0:NEXTX:POKES+24,15
140 POKES+4,0:POKES+5,0:POKES+6,240:POKES+4,17
150 RESTORE:FORX=0TO15
160 READA,B:GETA$:J=PEEK(56320):IFA$<>""ORJ=111THENPOKES+4,0:GOTO550
170 POKES+1,A:POKES,B:FORY=1TO100:NEXTY,X:GOTO150
180 DATA 11,48,14,24,18,209,11,48
190 DATA 10,143,14,24,18,209,10,143
200 DATA 9,104,14,24,18,209,14,24
210 DATA 9,104,14,24,18,209,14,24
220 PRINT"[144][147]"CHR$(8)
230 LEVEL=1
240 POKE49557,6:REM SPEED
250 SYS49152
260 ADD=49853
270 POKE53280,0:POKE53281,0
280 SHIP=3
290 A=PEEK(53248+30)
300 V=53248
310 FORX=12288+26*8+2TO12288+26*8+7:POKEX,252:NEXTX:POKE12288+26*8,0
320 POKE12288+26*8+1,0
330 POKEV+39,7
340 POKEV+21,0
350 ROUT=1
360 PRINTSPC(9)"[151]       [152] [151]   [152] [151]   "SPC(19);
370 PRINT"          [152]  ";
380 PRINTSPC(14)"[151]  [152] [151] [152] [151]   [152] [151] [152] "SPC(21);
390 PRINT"[151]  [155] [152] [151] [152] [155]  [152] [155] "SPC(21)"[151] [152] [155] [152] ";
400 PRINT"[155]    [152] [155]   [152] ";
410 PRINTSPC(18)"[155]   [152] [155]   [152] [155]   [152] [155]  [152] "
420 PRINTSPC(7)"[151]                     ";
430 PRINTSPC(8)"   [152] [151]      ";
440 PRINTSPC(7)" [152]  [151]   [152]  [151] [152] ";
450 PRINT"[151] [152] [151] [152] [151] [152]  ";
460 PRINTSPC(8)"[151] [152]         ";
470 PRINT"   "SPC(9)"  [155] [152] ";
480 PRINT"[155]   [152] [155] [152] [152]  [155] ";
490 PRINTSPC(10)"     [152] [155]    [152] [155] [152] ";
500 PRINT"[155] [152] [155]      [152] "
510 PRINTSPC(12)"[146][158][145][145][145]COPYRIGHT1989"
520 PRINTSPC(7)"COMPUTE!PUBLICATIONS,INC."
530 PRINTSPC(10)"ALLRIGHTSRESERVED"
540 GOTO130
550 PRINT"[154][147][157][157][157][157][157][157][157][157]";
560 PRINT"[155][207][183][183][183][183][183][208][157][157][157][157][157][157][157]";
570 FORY=1TO21
580 PRINT"[155][180][160][160][160][160][160][170][157][157][157][157][157][157][157]";:NEXTY
590 PRINT"[145][204][175][175][175][175][175][186]"
600 PRINT"[157][157][157][157][157][157][157][152]SCORE"
610 PRINT"[157][157][157][157][157][157][157]00000"
620 PRINT"[157][157][157][157][157][157][157]SHIPS"
630 PRINT"[157][157][157]3"
640 PRINT"[157][157][157][157][157][157][157]LEVEL"
650 PRINT"[157][157][157]1"
660 POKE50015,1
670 ON ROUTINE GOSUB920,940,960,980
680 ON LEVEL GOSUB730,740,750,760,770
690 POKEV+21,253:SYS49423
700 IFPEEK(2)=1THEN780
710 IFPEEK(2)=2THEN1000
720 END
730 FORX=ADDTOADD+11:POKEX,1:NEXT:RETURN:REM LEVEL1
740 FORX=ADDTOADD+11STEP2:POKEX,1:POKEX+1,0:NEXT:RETURN:REM LEVEL2
750 FORX=ADDTOADD+11STEP2:POKEX,0:POKEX+1,1:NEXT:RETURN:REM LEVEL3
760 FORX=ADDTOADD+11:POKEX,0:NEXT:RETURN:REM LEVEL4
770 FORX=ADDTOADD+11:POKEX,RND(0)*2:NEXT:RETURN:REM LEVEL5
780 REM SHIP CONTROL
790 POKEV+21,1:POKES+4,0
800 FORX=1TO50:POKE832+RND(0)*64,0:NEXTX
810 SHIP=SHIP-1
820 IFSHIP=-1THEN890
830 PRINT"[157][157][157][157][157][157][157][152]"SHIP:POKE1024+36+40*9,96
840 POKEV,0:POKEV+1,100
850 SYSA2
860 FORX=0TO26:POKEV,X:FORY1=1TO50:NEXTY1,X
870 GOTO670
880 PRINT"[157][157][157][157][157][157][157][152]PRESS[157][157][157]ANY[157][157][157]KEY"
890 POKEV+21,0:PRINT"[157][157][157][157][157][157][157]PRESS[157][157][157][157]ANY[157][157][157]KEY"
900 GETDH$:IFDH$=""THENGOTO890
910 GOTO120
920 REM ROUTINE1
930 A=70:FORX=V+4TOV+14STEP+2:POKEX,A:POKEX+1,A:A=A+30:NEXTX:RETURN
940 REM ROUTINE2
950 A=70:FORX=V+4TOV+14STEP2:POKEX,240:POKEX+1,A:A=A+30:NEXT:RETURN
960 REM ROUTINE3
970 A=70:FORX=V+4TOV+14STEP2:POKEX,100:POKEX+1,A:A=A+30:NEXT:RETURN
980 REM ROUTINE4
990 A=70:FORX=V+4TOV+14STEP2:POKEX,A:POKEX+1,200:A=A+30:NEXT:RETURN
1000 REM SET UP NEW BALLS
1010 ROUT=ROUT+1:IFROUTINE>4THENROUTINE=1:LEVEL=LEVEL+1:IFLEVEL>5THENLEVEL=5
1020 PRINT"[157][157][157][157][157][157][157][152]"LEVEL:POKE1024+36+40*13,96
1030 GOTO670
1040 DATAA201A9008D5EC38D5DC38E0EC38E0FC3AD0EDC29FE8D0EDCA50129FB8501A0003723
1050 DATA84FB84FDA9D085FCA93085FEB1FB91FDE6FBE6FDD0F6E6FCE6FEA5FEC938D0EC6464
1060 DATAA50109048501AD0EDC09018D0EDCA91D8D18D0A0FF8C0031888C01318C0631A92970
1070 DATAFA8D02318D03318D0431A9C28D0531A9008D0731A9FF8D1CD04CFDC0300000003123
1080 DATA00000000000000000000003F00003AFFC0EABFC0FFEC00EAAB003AAEF0EABFAC3150
1090 DATAFFFFFFEABFAC3AAEF0EAAB00FFEC00EABFC03AFFC03F0000000000000000003C3975
1100 DATA0003D7C00D55700D557035555C35555CD55557D55557D55557D55557D55557D53428
1110 DATA5557D55557D55557D5555735555C35555C0D55700D557003D7C0003C00A90F8D3002
1120 DATA05D478A9C98D1403A9C28D15035860AD1ED0A0FF8C18D48C15D0C8B97FC099404075
1130 DATA03A900998003A9008D20D08D21D0B9BEC099C003C8C040D0E2A01A8C00D0A0643987
1140 DATA8C01D0A20D8EF807E88EF907E88AA00699F90788D0FAA9AA8D8C038D8F038DB04317
1150 DATA038DB303AD1ED0ADFE02C900F00160AD00DC2902D003EE01D0AD00DC2901D0033444
1160 DATACE01D0AD01D0C932D003EE01D0C9E5D003CE01D0A20A20B3EECAD0FAAD1ED08D4595
1170 DATA07C32901F005A901850260AD15D029FCD005A902850260AD00DC2910D018AD153076
1180 DATAD009028D15D0AD02D0D00BA92E8D02D0AD01D08D03D0AD02D0F027EE02D0EE023841
1190 DATAD0EE02D0EE28D0AD02D08D01D4A9008D00D48D05D4A9F08D06D4A9818D04D44C4258
1200 DATA12C2AD15D029FD8D15D0A9008D04D48D02D0A200BDBDC2D006DE04D04C22C2FE4095
1210 DATA04D0BDBEC2D006DE05D04C30C2FE05D0BD04D0C9FFD003DEBDC2C919D003FEBD4772
1220 DATAC2BD05D0C9E5D003DEBEC2C932D003FEBEC2E8E8E00CD0BCAD07C32902F05BAD4961
1230 DATA15D08DFFCFA9048DFECFA9030DFECF8D15D0ADFECF2DFFCFF015AEC002E8E88E4999
1240 DATA00CEADC002CD00CED0F8AD1ED0D00CADFECF0A8DFECFD0D24CB4C220E9C2A9004813
1250 DATA8D02D0AD15D029FD8D15D0ADFECF4DFFCF8DFFCFADFFCF8D15D04C67C10101014573
1260 DATA0101010101010101012060C32010C3A2001E00319008BD003109019D0031E8E01878
1270 DATA07D0EEEEC0024C31EAA00018A207FEE604BDE604C93AD009A9309DE604CA4CEE4108
1280 DATAC2C8C00AD0E56030010F0C0B0C0F0101AE0FC3E88E0FC3E005D008A2008E0FC33172
1290 DATA4C26C34C3CC3AE0EC3E88E0EC3E006D005A2008E0EC3BD08C38D25D0600547073519
1300 DATAE90BDA0C8F08610C8F0C8F086109680E180C8F096808610C8F0C8F08610000002076
1310 DATAAD5FC3F044EE5EC3AD5EC3C919D03AA9008D5EC3A9008D0BD4A9008D0DD4A9094097
1320 DATA8D0CD4EE5DC3EE5DC3AD5DC3C920D005A9008D5DC3AE5DC3BD3DC3BC3EC38D084423
1330 DATAD48C07D4A9218D0BD460A000B97FC0994003C8C03FD0F560FF3376